<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Response.Charset = "utf-8" 
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(4)
dim name,rs,sqlt
name=HTMLEncode(request.QueryString("name"))
Set rs = Server.CreateObject("ADODB.Recordset")
sqlt = "select * from [c_user] where name='"&name&"'"
rs.open sqlt,conn,1,1
If Not rs.eof Then 
response.write("exist")
End If 
rs.close
Set rs=Nothing
%>